home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / gawk / gawk213b.zoo / test / up_down.awk < prev    next >
Text File  |  1991-04-06  |  223b  |  16 lines
  1. {
  2.     lim = split ($0, line)
  3.     out = ""
  4.     if (lim > 0) {
  5.         i = 0
  6.         while (i < lim) {
  7.             i++
  8.             if (i % 2)
  9.                 out = out sprintf("%s ", toupper(line[i]))
  10.             else
  11.                 out = out sprintf("%s ", tolower(line[i]))
  12.         }
  13.     }
  14.     print out
  15. }
  16.